home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1994 January / PSL Monthly Shareware CD-ROM (Public Software Library) (January 1994).iso / games / dos / ascii_ga / bigslot.com / BIGSLOT.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1980-01-01  |  19.6 KB  |  545 lines
  1. 10   SCREEN 0
  2. 20  RANDOMIZE INT(VAL(MID$(TIME$,7,2)))
  3. 30  M=100
  4. 40  WIDTH 80:CLS:COLOR 1,0,14:GOSUB 3120
  5. 50  REM 'CONVERTED FOR IBM-PC FROM 101 BASIC COMPUTER GAMES BY DIGITAL
  6. 60  REM 'EQUIPMENT CORP. SUBMITTED TO DIGITAL BY ROB HOFFBERG OF ROSLYN N.Y.
  7. 70  REM 'AUTHOR UNKNOWN
  8. 80  REM 'REVISED FOR 20-SYMBOL REELS BY:
  9. 90  REM 'NORTHE K. OSBRINK, SANTA CRUZ, CA. 8/10/84
  10. 100  REM 'REVISED FOR COLOR, IMPROVED GRAPHICS AND SOUND BY:
  11. 110  REM 'ANONYMOUS(H.M.), 2/1/85
  12. 120  REM 'REVISED FOR 22-SYMBOL WHEELS, MULTIPLE COIN OPERATION AND
  13. 130  REM ' BONUS JACKPOT BY:
  14. 140  REM 'DICK WITHINGTON, REDDING, CA. 5/1/88
  15. 150  CLS
  16. 160  GOSUB 4130
  17. 170  COLOR 1,0,1
  18. 180  L$=CHR$(186)
  19. 190  S$=CHR$(178)
  20. 200  B$=CHR$(186)
  21. 210  F$=CHR$(15)
  22. 220  DIM W$(7)
  23. 230  W$(1)="CHERRY":W$(2)=" BELL ":W$(3)=" *BAR* ":W$(4)=" PLUM "
  24. 240  W$(5)="ORANGE":W$(6)="2-BARS":W$(7)="3-BARS":REM "WHEEL ONE
  25. 250  DIM V$(22)
  26. 260  V$(1)=" *BAR* ":V$(7)=" PLUM ":V$(4)=" *BAR* ":V$(11)="2-BARS"
  27. 270  V$(2)=" *BAR* ":V$(12)="CHERRY":V$(15)="ORANGE":V$(8)=" PLUM "
  28. 280  V$(3)=" *BAR* ":V$(20)=" PLUM ":V$(9)=" BELL ":V$(16)="3-BARS"
  29. 290  V$(13)="CHERRY":V$(17)="ORANGE":V$(5)=" *BAR* ":V$(10)=" PLUM "
  30. 300  V$(6)=" *BAR* ":V$(18)="ORANGE":V$(14)="CHERRY":V$(19)="ORANGE"
  31. 310  V$(21)="ORANGE":V$(22)="CHERRY"
  32. 320  REM "WHEEL TWO
  33. 330  DIM V1$(22)
  34. 340  V1$(1)=" *BAR* ":V1$(5)="3-BARS":V1$(8)=" PLUM ":V1$(10)=" BELL "
  35. 350  V1$(16)="CHERRY":V1$(6)="ORANGE":V1$(17)="2-BARS":V1$(11)=" BELL "
  36. 360  V1$(2)=" *BAR* ":V1$(12)=" BELL ":V1$(3)=" *BAR* ":V1$(13)=" BELL "
  37. 370  V1$(18)="CHERRY":V1$(14)=" BELL ":V1$(19)="CHERRY":V1$(7)="ORANGE"
  38. 380  V1$(20)="CHERRY":V1$(9)=" PLUM ":V1$(4)=" *BAR* ":V1$(15)=" BELL "
  39. 390  V1$(21)="CHERRY":V1$(22)="ORANGE"
  40. 400  REM "WHEEL THREE
  41. 410  DIM V3$(22)
  42. 420  V3$(1)=" *BAR* ":V3$(2)=" BELL ":V3$(5)="3-BARS":V3$(11)="CHERRY"
  43. 430  V3$(17)=" PLUM ":V3$(6)="ORANGE":V3$(7)="ORANGE":V3$(18)=" PLUM "
  44. 440  V3$(8)="ORANGE":V3$(12)="CHERRY":V3$(19)=" PLUM ":V3$(13)="CHERRY"
  45. 450  V3$(3)=" BELL ":V3$(14)="2-BARS":V3$(9)="ORANGE":V3$(4)=" BELL "
  46. 460  V3$(20)=" PLUM ":V3$(15)="CHERRY":V3$(10)="ORANGE":V3$(16)="CHERRY"
  47. 470  V3$(21)="ORANGE":V3$(22)="CHERRY"
  48. 480  CLS
  49. 490  COLOR 15,0,4
  50. 500  Y=16:FOR X=2 TO 17:LOCATE X,Y:PRINT S$:NEXT X:COLOR 6,0,4
  51. 510  X=17:FOR Y=17 TO 50:LOCATE X,Y:PRINT B$:NEXT Y:COLOR 15,0,4
  52. 520  Y=51:FOR X=17 TO 2 STEP-1:LOCATE X,Y:PRINT S$:NEXT X:COLOR 6,0,4
  53. 530  X=2:FOR Y=50 TO 17 STEP-1:LOCATE X,Y:PRINT L$:NEXT Y:COLOR 0,7,4
  54. 540  X=18:FOR Y=11 TO 56:LOCATE X,Y:PRINT F$:NEXT Y
  55. 550  X=19:FOR Y= 9 TO 58:LOCATE X,Y:PRINT F$:NEXT Y
  56. 560  X=20:FOR Y=7 TO 60:LOCATE X,Y:PRINT F$:NEXT Y
  57. 570  GOSUB 4080
  58. 580  REM "BODY"
  59. 590  COLOR 15,0,14
  60. 600  FOR U=17 TO 50:FOR A=3 TO 16
  61. 610  LOCATE A,U:PRINT CHR$(16)
  62. 620  NEXT A:NEXT U:GOSUB 3710
  63. 630  COLOR 2,0,3
  64. 640  LOCATE 13,33:COLOR 0,7,4
  65. 650  X=14:FOR Y=24 TO 42:LOCATE X,Y:PRINT L$:NEXT Y
  66. 660  FOR X=14 TO 16:LOCATE X,43:PRINT S$:NEXT X
  67. 670  FOR Y=42 TO 24 STEP-1:LOCATE 16,Y:PRINT B$:NEXT Y
  68. 680  FOR X=16 TO 14 STEP-1:LOCATE X,23:PRINT S$:NEXT X
  69. 690  COLOR 10,0,1:LOCATE 15,24:PRINT " *** GOOD LUCK *** "
  70. 700  REM "******LEFT WINDOW*****
  71. 710  COLOR 6,7,4
  72. 720  FOR Y=18 TO 26:LOCATE 4,Y:PRINT L$:NEXT Y
  73. 730  FOR X=4 TO 6:LOCATE X,27:PRINT S$:NEXT X
  74. 740  FOR Y=26 TO 18 STEP-1:LOCATE 6,Y:PRINT B$:NEXT Y
  75. 750  FOR X=6 TO 4 STEP-1:LOCATE X,18:PRINT S$:NEXT X
  76. 760   COLOR 0,0,4:LOCATE 5,19:PRINT "        ":COLOR 6,7,4
  77. 770  REM "*****MID WINDOW*****
  78. 780  FOR Y=30 TO 37:LOCATE 4,Y:PRINT L$:NEXT Y
  79. 790  FOR X=4 TO 6:LOCATE X,38:PRINT S$:NEXT X
  80. 800  FOR Y=37 TO 30 STEP-1:LOCATE 6,Y:PRINT B$:NEXT Y
  81. 810  FOR X=6 TO 4 STEP-1:LOCATE X,29:PRINT S$:NEXT X
  82. 820   COLOR 0,0,4:LOCATE 5,30:PRINT "        ":COLOR 6,7,4
  83. 830  REM "*****RIGHT WINDOW*****
  84. 840  FOR Y=41 TO 48:LOCATE 4,Y:PRINT L$:NEXT Y
  85. 850  FOR X=4 TO 6:LOCATE X,49:PRINT S$:NEXT X
  86. 860  FOR Y=48 TO 41 STEP-1:LOCATE 6,Y:PRINT B$:NEXT Y
  87. 870  FOR X=6 TO 4 STEP-1:LOCATE X,40:PRINT S$:NEXT X
  88. 880  COLOR 0,0,4:LOCATE 5,41:PRINT "        "
  89. 890  COLOR 7,0:GOSUB 4420
  90. 900  GOSUB 4510
  91. 910  REM "DO YOU PULL OR END
  92. 920  C1 = 0
  93. 930  GOSUB 4080
  94. 940  LOCATE 11,23:COLOR 7,1,1:PRINT " YOU HAVE";:COLOR 15,1,1:PRINT USING "$$#,###,### ";M
  95. 950   COLOR 3,1,1
  96. 960   LOCATE 12,23,0:COLOR 15,0:PRINT " PLAY 1 TO 5 COINS   "
  97. 970   D$ = INKEY$:IF D$ = "" THEN 970
  98. 980   IF D$ = "C" THEN 1030
  99. 985   IF D$ = "c" THEN 1030
  100. 990   IF D$ = "S" THEN 3070
  101. 995   IF D$ = "s" THEN 3070
  102. 1000   IF C1 > 0 THEN 1060
  103. 1010  LOCATE 22,12:COLOR 31,0:PRINT "YOU MUST DEPOSIT AT LEAST $1 BEFORE PULLING"
  104. 1020  GOTO 960
  105. 1030  GOSUB 3760
  106. 1040  IF C1 = 5 THEN 1060
  107. 1050  GOTO 960
  108. 1060  GOSUB 3670
  109. 1070  GOSUB 3720
  110. 1080  GOSUB 3710
  111. 1090  REM " * PICK THE WHEELS
  112. 1100  FOR I=1 TO 3:Z(I)=INT((RND*20)+1):NEXT I
  113. 1110  IF C1=5 GOTO 4380
  114. 1120  REM "***** ROLL ALL WINDOWS AND PICK LEFT *****
  115. 1130  FOR X=1 TO 10:FOR Y=1 TO 4:LOCATE 5,20:PRINT W$(Y):SOUND 20000,0.1
  116. 1140  LOCATE 5,31:PRINT W$(Y):LOCATE 5,42:PRINT W$(Y):NEXT Y:NEXT X
  117. 1150  SOUND 100,0.1:LOCATE 5,20:PRINT V$(Z(1))
  118. 1160  SOUND 37,0.1
  119. 1170  REM " ***** ROLL MID AND RIGHT AND PICK MID *****
  120. 1180  FOR X=1 TO 10:FOR Y=1 TO 4
  121. 1190  LOCATE 5,31:PRINT W$(Y):LOCATE 5,42:PRINT W$(Y):NEXT Y:SOUND 20000,0.1
  122. 1200   NEXT X
  123. 1210   SOUND 650,0.1:LOCATE 5,31:PRINT V1$(Z(2))
  124. 1220   SOUND 45,0.1
  125. 1230   REM "***** ROLL RIGHT AND PICK RIGHT *****
  126. 1240   FOR X=1 TO 8:FOR Y=1 TO 4
  127. 1250   LOCATE 5,42:PRINT W$(Y):NEXT Y:SOUND 20000,0.1:NEXT X:SOUND 675,0.1
  128. 1260   LOCATE 5,42:PRINT V3$(Z(3))
  129. 1270   SOUND 55,0.1
  130. 1280  REM "DO I HAVE 3 OF A KIND
  131. 1290  IF V$(Z(1))="CHERRY" THEN LOCATE 5,20:COLOR 12,0,1:PRINT "CHERRY":COLOR 15,0,1:GOTO 1360
  132. 1300  IF V$(Z(1))=" BELL " THEN LOCATE 5,20:COLOR 14,0,1:PRINT "  BELL  ":COLOR 15,0,1:GOTO 1360
  133. 1310  IF V$(Z(1))=" *BAR* " THEN LOCATE 5,20:COLOR 7,0,1:PRINT " *BAR*  ":COLOR 15,0,1:GOTO 1360
  134. 1320  IF V$(Z(1))=" PLUM " THEN LOCATE 5,20:COLOR 9,0,1:PRINT " PLUM  ":COLOR 15,0,1:GOTO 1360
  135. 1330  IF V$(Z(1))="ORANGE" THEN LOCATE 5,20:COLOR 6,0,1:PRINT "ORANGE":COLOR 15,0,1:GOTO 1360
  136. 1340  IF V1$(Z(1))="3-BARS" THEN LOCATE 5,19:COLOR 7,0,1:PRINT "3-BARS":COLOR 15,0,1:GOTO 1360
  137. 1350  IF V1$(Z(1))="2-BARS" THEN LOCATE 5,19:COLOR 7,0,1:PRINT "2-BARS":COLOR 15,0,1:GOTO 1360
  138. 1360  IF V1$(Z(2))="CHERRY" THEN LOCATE 5,31:COLOR 12,0,1:PRINT "CHERRY":COLOR 15,0,1:GOTO 1430
  139. 1370  IF V1$(Z(2))=" BELL " THEN LOCATE 5,31:COLOR 14,0,1:PRINT " BELL  ":COLOR 15,0,1:GOTO 1430
  140. 1380  IF V1$(Z(2))=" *BAR* " THEN LOCATE 5,31:COLOR 7,0,1:PRINT " *BAR* ":COLOR 15,0,1:GOTO 1430
  141. 1390  IF V1$(Z(2))=" PLUM " THEN LOCATE 5,31:COLOR 9,0,1:PRINT " PLUM  ":COLOR 15,0,1:GOTO 1430
  142. 1400  IF V1$(Z(2))="ORANGE" THEN LOCATE 5,31:COLOR 6,0,1:PRINT "ORANGE":COLOR 15,0,1:GOTO 1430
  143. 1410  IF V1$(Z(2))="3-BARS" THEN LOCATE 5,31:COLOR 7,0,1:PRINT "3-BARS":COLOR 15,0,1:GOTO 1430
  144. 1420  IF V1$(Z(2))="2-BARS" THEN LOCATE 5,31:COLOR 7,0,1:PRINT "2-BARS":COLOR 15,1:GOTO 1430
  145. 1430  IF V3$(Z(3))="CHERRY" THEN LOCATE 5,42:COLOR 12,0,1:PRINT "CHERRY":COLOR 15,0,1:GOTO 1500
  146. 1440  IF V3$(Z(3))=" BELL " THEN LOCATE 5,42:COLOR 14,0,1:PRINT " BELL  ":COLOR 15,0,1:GOTO 1500
  147. 1450  IF V3$(Z(3))=" *BAR* " THEN LOCATE 5,41:COLOR 7,0,1:PRINT " *BAR*  ":COLOR 15,0,1:GOTO 1500
  148. 1460  IF V3$(Z(3))=" PLUM " THEN LOCATE 5,42:COLOR 9,0,1:PRINT " PLUM  ":COLOR 15,0,1:GOTO 1500
  149. 1470  IF V3$(Z(3))="ORANGE" THEN LOCATE 5,42:COLOR 6,0,1:PRINT "ORANGE":COLOR 15,0,1:GOTO 1500
  150. 1480  IF V3$(Z(3))="3-BARS" THEN LOCATE 5,42:COLOR 7,0,1:PRINT "3-BARS":COLOR 15,0,1:GOTO 1500
  151. 1490  IF V3$(Z(3))="2-BARS" THEN LOCATE 5,42:COLOR 7,0,1:PRINT "2-BARS":COLOR 15,0,1:GOTO 1500
  152. 1500  REM ***** DO I HAVE 3 ANY-BARS
  153. 1510  IF V$(Z(1)) = " *BAR* " OR V$(Z(1)) = "2-BARS" OR V$(Z(1)) = "3-BARS" THEN 1530
  154. 1520  GOTO 1690
  155. 1530  IF V1$(Z(2)) = " *BAR* " OR V1$(Z(2)) = "2-BARS" OR V1$(Z(2)) = "3-BARS" THEN 1550
  156. 1540  GOTO 1690
  157. 1550  IF V3$(Z(3)) = " *BAR* " OR V3$(Z(3)) = "2-BARS" OR V3$(Z(3)) = "3-BARS" THEN 1570
  158. 1560  GOTO 1690
  159. 1570  IF V$(Z(1)) <> V1$(Z(2)) OR V$(Z(1)) <> V3$(Z(3)) THEN 1590
  160. 1580  GOTO 1690
  161. 1590  IF C1=1 THEN 1640
  162. 1600  IF C1=2 THEN 1650
  163. 1610  IF C1=3 THEN 1660
  164. 1620  IF C1=4 THEN 1670
  165. 1630  IF C1=5 THEN 1680
  166. 1640  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $20.00  ":M=M+20:GOTO 3520
  167. 1650  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $40.00  ":M=M+40:GOTO 3520
  168. 1660  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $60.00  ":M=M+60:GOTO 3520
  169. 1670  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $80.00  ":M=M+80:GOTO 3520
  170. 1680  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $100.00 ":M=M+100:GOTO 3520
  171. 1690  IF V$(Z(1)) <> V1$(Z(2)) THEN 2480
  172. 1700  IF V1$(Z(2)) <> V3$(Z(3)) AND V3$(Z(3)) <> " *BAR* " THEN 2480
  173. 1710  IF V$(Z(1)) <> "CHERRY" THEN 1820
  174. 1720  IF C1 = 1 THEN 1770
  175. 1730  IF C1 = 2 THEN 1780
  176. 1740  IF C1 = 3 THEN 1790
  177. 1750  IF C1 = 4 THEN 1800
  178. 1760  IF C1 = 5 THEN 1810
  179. 1770  LOCATE 15,25:PRINT "  YOU WIN $5.00 ":M=M+5:GOTO 3410
  180. 1780  LOCATE 15,25:PRINT " YOU WIN $10.00 ":M=M+10:GOTO 3410
  181. 1790  LOCATE 15,25:PRINT " YOU WIN $15.00 ":M=M+15:GOTO 3410
  182. 1800  LOCATE 15,25:PRINT " YOU WIN $20.00 ":M=M+20:GOTO 3410
  183. 1810  LOCATE 15,25:PRINT " YOU WIN $25.00 ":M=M+25:GOTO 3410
  184. 1820  IF V$(Z(1))<>" PLUM " THEN 1930
  185. 1830  IF C1 = 1 THEN 1880
  186. 1840  IF C1 = 2 THEN 1890
  187. 1850  IF C1 = 3 THEN 1900
  188. 1860  IF C1 = 4 THEN 1910
  189. 1870  IF C1 = 5 THEN 1920
  190. 1880  LOCATE 15,25:PRINT " YOU WIN $14.00 ":M=M+14:GOTO 3400
  191. 1890  LOCATE 15,25:PRINT " YOU WIN $28.00 ":M=M+28:GOTO 3400
  192. 1900  LOCATE 15,25:PRINT " YOU WIN $42.00 ":M=M+42:GOTO 3400
  193. 1910  LOCATE 15,25:PRINT " YOU WIN $56.00 ":M=M+56:GOTO 3400
  194. 1920  LOCATE 15,25:PRINT " YOU WIN $70.00 ":M=M+70:GOTO 3400
  195. 1930  IF V$(Z(1))<>"ORANGE" THEN 2040
  196. 1940  IF C1 = 1 THEN 1990
  197. 1950  IF C1 = 2 THEN 2000
  198. 1960  IF C1 = 3 THEN 2010
  199. 1970  IF C1 = 4 THEN 2020
  200. 1980  IF C1 = 5 THEN 2030
  201. 1990  LOCATE 15,25:PRINT " YOU WIN $10.00 ":M=M + 10:GOTO 3390
  202. 2000  LOCATE 15,25:PRINT " YOU WIN $20.00 ":M=M + 20:GOTO 3390
  203. 2010  LOCATE 15,25:PRINT " YOU WIN $30.00 ":M=M + 30:GOTO 3390
  204. 2020  LOCATE 15,25:PRINT " YOU WIN $40.00 ":M=M + 40:GOTO 3390
  205. 2030  LOCATE 15,25:PRINT " YOU WIN $50.00 ":M=M + 50:GOTO 3390
  206. 2040  IF V$(Z(1))<>" *BAR* " THEN 2150
  207. 2050  IF C1 = 1 THEN 2100
  208. 2060  IF C1 = 2 THEN 2110
  209. 2070  IF C1 = 3 THEN 2120
  210. 2080  IF C1 = 4 THEN 2130
  211. 2090  IF C1 = 5 THEN 2140
  212. 2100  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $50.00 ":M=M+50:GOTO 3530
  213. 2110  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $100.00":M=M+100:GOTO 3530
  214. 2120  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $150.00":M=M+150:GOTO 3530
  215. 2130  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $200.00":M=M+200:GOTO 3530
  216. 2140  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $250.00":M=M+250:GOTO 3530
  217. 2150  IF V$(Z(1))<> "3-BARS" THEN 2260
  218. 2160  IF C1=1 THEN 2210
  219. 2170  IF C1=2 THEN 2220
  220. 2180  IF C1=3 THEN 2230
  221. 2190  IF C1=4 THEN 2240
  222. 2200  IF C1=5 THEN 2250
  223. 2210  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $400.00 ":M=M+400:GOTO 3570
  224. 2220  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $800.00 ":M=M+800:GOTO 3570
  225. 2230  LOCATE 15,25:COLOR 31,0:PRINT "YOU WIN $1200.00 ":M=M+1200:GOTO 3570
  226. 2240  LOCATE 15,25:COLOR 31,0:PRINT "YOU WIN $1600.00 ":M=M+1600:GOTO 3570
  227. 2250  LOCATE 15,25:COLOR 31,0:PRINT "YOU WIN $2000.00 ":M=M+2000:GOTO 3590
  228. 2260  IF V$(Z(1)) <> "2-BARS" THEN 2370
  229. 2270  IF C1=1 THEN 2320
  230. 2280  IF C1=2 THEN 2330
  231. 2290  IF C1=3 THEN 2340
  232. 2300  IF C1=4 THEN 2350
  233. 2310  IF C1=5 THEN 2360
  234. 2320  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $100.00 ":M=M+100:GOTO 3540
  235. 2330  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $200.00 ":M=M+200:GOTO 3540
  236. 2340  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $300.00 ":M=M+300:GOTO 3540
  237. 2350  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $400.00 ":M=M+400:GOTO 3540
  238. 2360  LOCATE 15,25:COLOR 31,0:PRINT " YOU WIN $500.00 ":M=M+500:GOTO 3540
  239. 2370  IF V$(Z(1))<>" BELL " THEN 2560
  240. 2380  IF C1 = 1 THEN 2430
  241. 2390  IF C1 = 2 THEN 2590
  242. 2400  IF C1 = 3 THEN 2450
  243. 2410  IF C1 = 4 THEN 2460
  244. 2420  IF C1 = 5 THEN 2470
  245. 2430  LOCATE 15,25:PRINT " YOU WIN $18.00  ":M=M+18:GOTO 3390
  246. 2440  LOCATE 15,25:PRINT " YOU WIN $36.00  ":M=M+36:GOTO 3390
  247. 2450  LOCATE 15,25:PRINT " YOU WIN $54.00  ":M=M+54:GOTO 3390
  248. 2460  LOCATE 15,25:PRINT " YOU WIN $72.00  ":M=M+72:GOTO 3390
  249. 2470  LOCATE 15,25:PRINT " YOU WIN $90.00  ":M=M+90:GOTO 3390
  250. 2480  REM "DO I HAVE CHERRIES
  251. 2490  IF V$(Z(1))<>"CHERRY" THEN 2740
  252. 2500  IF V1$(Z(2))<>"CHERRY" THEN 2630
  253. 2510  REM "2 CHERRIES
  254. 2520  IF C1=1 THEN 2570
  255. 2530  IF C1=2 THEN 2580
  256. 2540  IF C1=3 THEN 2590
  257. 2550  IF C1=4 THEN 2600
  258. 2560  IF C1=5 THEN 2610
  259. 2570  LOCATE 15,25:PRINT "  YOU WIN $2.00  ":M=M+2:GOTO 3420
  260. 2580  LOCATE 15,25:PRINT "  YOU WIN $4.00  ":M=M+4:GOTO 3420
  261. 2590  LOCATE 15,25:PRINT "  YOU WIN $6.00  ":M=M+6:GOTO 3420
  262. 2600  LOCATE 15,25:PRINT "  YOU WIN $8.00  ":M=M+8:GOTO 3420
  263. 2610  LOCATE 15,25:PRINT "  YOU WIN $10.00 ":M=M+10:GOTO 3420
  264. 2620  REM
  265. 2630  REM " 1 CHERRY
  266. 2640  IF C1=1 THEN 2690
  267. 2650  IF C1=2 THEN 2700
  268. 2660  IF C1=3 THEN 2710
  269. 2670  IF C1=4 THEN 2720
  270. 2680  IF C1=5 THEN 2730
  271. 2690  LOCATE 15,25:PRINT "  YOU WIN $1.00  ":M=M+1:GOTO 3500
  272. 2700  LOCATE 15,25:PRINT "  YOU WIN $2.00  ":M=M+2:GOTO 3500
  273. 2710  LOCATE 15,25:PRINT "  YOU WIN $3.00  ":M=M+3:GOTO 3500
  274. 2720  LOCATE 15,25:PRINT "  YOU WIN $4.00  ":M=M+4:GOTO 3500
  275. 2730  LOCATE 15,25:PRINT "  YOU WIN $5.00  ":M=M+5:GOTO 3500
  276. 2740  REM ' GOT SCHMALTZ
  277. 2750  ON Z(3) GOSUB 2860,2870,2880,2890,2900,2910,2920,2930,2940,2950,2960,2970,2980,2990,3000,3010,3020,3030,3040,3050,3060
  278. 2760  IF C1=1 THEN 2810
  279. 2770  IF C1=2 THEN 2820
  280. 2780  IF C1=3 THEN 2830
  281. 2790  IF C1=4 THEN 2840
  282. 2800  IF C1=5 THEN 2850
  283. 2810  M=M-1:GOTO 910
  284. 2820  M=M-2:GOTO 910
  285. 2830  M=M-3:GOTO 910
  286. 2840  M=M-4:GOTO 910
  287. 2850  M=M-5:GOTO 910
  288. 2860  LOCATE 15,25:PRINT "WALK AWAY WEALTHY":RETURN
  289. 2870  LOCATE 15,25:PRINT " GO FOR THE GOLD ":RETURN
  290. 2880  LOCATE 15,25:PRINT "HANG IN, GET RICH":RETURN
  291. 2890  LOCATE 15,25:PRINT "NEXT PULL DOES IT":RETURN
  292. 2900  LOCATE 15,25:PRINT "GET SET TO RETIRE":RETURN
  293. 2910  LOCATE 15,25:PRINT "THIS IS YOUR DAY ":RETURN
  294. 2920  LOCATE 15,25:PRINT "YOU'RE SOOO CLOSE":RETURN
  295. 2930  LOCATE 15,25:PRINT " MILLIONS AWAIT  ":RETURN
  296. 2940  LOCATE 15,25:PRINT " HIT IT BIG HERE ":RETURN
  297. 2950  LOCATE 15,25:PRINT " BORN TO BE RICH?":RETURN
  298. 2960  LOCATE 15,25:PRINT " PLAY 5, WIN BIG!":RETURN
  299. 2970  LOCATE 15,25:PRINT "   BAG A BUNDLE  ":RETURN
  300. 2980  LOCATE 15,25:PRINT "  YOU CAN DO IT! ":RETURN
  301. 2990  LOCATE 15,25:PRINT "READY FOR RICHES?":RETURN
  302. 3000  LOCATE 15,25:PRINT "JOIN THE JET SET ":RETURN
  303. 3010  LOCATE 15,25:PRINT "LIVE LIKE A KING ":RETURN
  304. 3020  LOCATE 15,25:PRINT "   MAKE A MINT   ":RETURN
  305. 3030  LOCATE 15,25:PRINT "   RAKE IT IN!   ":RETURN
  306. 3040  LOCATE 15,25:PRINT " BREAK THE BANK  ":RETURN
  307. 3050  LOCATE 15,25:PRINT "WINNER TAKES ALL ":RETURN
  308. 3060  LOCATE 15,25:PRINT "  YOU LOOK LUCKY ":RETURN
  309. 3070  LOCATE 15,24:PRINT             "      BYE-BYE      "
  310. 3080  KEY 1,"LIST ":KEY 2,"RUN" + CHR$(13)
  311. 3090  END
  312. 3100  END
  313. 3110  END
  314. 3120  'COLOR 3
  315. 3130  KEY OFF:CLS:GOTO 3150
  316. 3140  CLS
  317. 3150  FOR J=2 TO 22
  318. 3160  LOCATE 2,2:PRINT CHR$(201):LOCATE 2,79:PRINT CHR$(187)
  319. 3170  LOCATE 23,2:PRINT CHR$(200):LOCATE 23,79:PRINT CHR$(188)
  320. 3180  LOCATE J,2:PRINT CHR$(186)
  321. 3190  LOCATE J,79:PRINT CHR$(186)
  322. 3200  NEXT J
  323. 3210  FOR J=3 TO 78
  324. 3220  LOCATE 2,J:PRINT CHR$(205)
  325. 3230  LOCATE 23,J:PRINT CHR$(205)
  326. 3240  NEXT J
  327. 3250  COLOR 6,0,14
  328. 3260  LOCATE 2,4:PRINT "W E L C O M E  T O . . ."
  329. 3270  LOCATE 6,30:PRINT "I B M ' S  C A S I N O"
  330. 3280  LOCATE 9,4:PRINT "WE'VE DONE SOME REMODELING AND ADDED A NEW MULTIPLE-COIN"
  331. 3290  LOCATE 10,4:PRINT"SILVER DOLLAR SLOT MACHINE WITH PAY-OFFS UP TO $2,000."
  332. 3300  LOCATE 12,4:PRINT"IF YOU HIT THIS TOP JACKPOT (3 TRIPLE BARS) AND HAVE PLAYED 5 COINS,"
  333. 3310  LOCATE 13,4:PRINT "YOU GET A CHANCE TO TRY FOR A SPECIAL BONUS JACKPOT THAT RANGES"
  334. 3320  LOCATE 14,4:PRINT"FROM $1.00 ALL THE WAY UP TO $5,000,000, WITH THE AMOUNT CHANGING"
  335. 3330  LOCATE 15,4:PRINT "WITH EACH PULL."
  336. 3340  LOCATE 17,4:PRINT"IF THIS HAPPENS, YOU HAVE 3 CHANCES TO LINE UP THREE DOLLAR SIGNS ($)"
  337. 3350  LOCATE 18,4:PRINT"TO WIN THE BONUS JACKPOT."
  338. 3360  LOCATE 20,4:PRINT "PRESS ANY KEY TO CONTINUE: ?";
  339. 3370  IF INKEY$="" THEN 3370
  340. 3380  RETURN
  341. 3390  SOUND 5500,1
  342. 3400  SOUND 5000,1
  343. 3410  SOUND 25000,2
  344. 3420  SOUND 4500,1
  345. 3430  SOUND 4000,1
  346. 3440  SOUND 25000,2
  347. 3450  SOUND 3500,0.5
  348. 3460  SOUND 3000,0.5
  349. 3470  SOUND 2500,1
  350. 3480  SOUND 25000,2
  351. 3490  SOUND 2500,1
  352. 3500  SOUND 5000,1
  353. 3510  GOTO 910
  354. 3520  PLAY "mft250 O3 D D D. O2 B A O3 D D D..":GOTO 910
  355. 3530  PLAY "mft250 O3 C C D E D C D  E...C C":GOTO 910
  356. 3540  PLAY "mft250 O4 C D... C O3 B-... A B-...G P1 G A B-... O4 C D...C O3 A...."
  357. 3550  PLAY "P1 O4 C O5 F... C C B- O3 A O4 B- O3 G.... G A O4 B-... O5 C D...C O3 F...."
  358. 3560  GOTO 910
  359. 3570  A$="mft160o3l4d d l8c o2b l4b l8a# b l2b. l8a# b l4b l8a# b o3l4d l8o2b o3d l2c o2l4a."
  360. 3580  PLAY "xa$;":GOTO 910
  361. 3590  A$="mft160o3l4d d l8c o2b l4b l8a# b l2b. l8a# b l4b l8a# b o3l4d l8o2b o3d l2c o2l4a."
  362. 3600  B$="l8a l4a l8g# a l4a l8g# a l2o3c. l8o2b a l8b l4o3d. l4e. l8e l2o2a."
  363. 3610  C$= "l4o3d d l8c o2b l4b l8a# b l2b. l8a# b l4b l8a# b o3c o2b a. l16f# l2a l4g. l8g l4g l8f# g l4b- l8a g o3l2g. o2l8g"
  364. 3620  D$="a b o3d o2g a b o3d o2d e. l16b.l2a l2g"
  365. 3630  PLAY"xa$;xb$;xc$;xd$;":
  366. 3640  GOSUB 4600
  367. 3650  GOTO 910
  368. 3660  COLOR 0,0,1:GOTO 3100
  369. 3670  REM `BLACKOUTS FOR WINDOWS WHEN HANDLE IS PULLED
  370. 3680  E$="   ":LOCATE 15,24:PRINT E$;E$;E$;E$;E$;"   "
  371. 3690  COLOR 15,0,1:E$="    ":LOCATE 5,19:PRINT E$;E$:LOCATE 5,30:PRINT E$;E$:LOCATE 5,41:PRINT E$;E$
  372. 3700  RETURN
  373. 3710  COLOR 7,0,4:GOTO 3730
  374. 3720  COLOR 0,0
  375. 3730  LOCATE 14,52:PRINT "/";
  376. 3740  Y=52:FOR X=13 TO 8 STEP-1:LOCATE X,Y:PRINT "//";:Y=Y+1:NEXT X
  377. 3750  FOR X=6 TO 7:LOCATE X,57:PRINT STRING$(4,178):NEXT X:RETURN
  378. 3760  REM **** DRAWING COIN COUNTING BOXES
  379. 3770  C1 = C1 + 1
  380. 3780  IF C1=1 THEN 3830
  381. 3790    IF C1=2 THEN 3880
  382. 3800      IF C1=3 THEN 3930
  383. 3810        IF C1=4 THEN 3980
  384. 3820          IF C1=5 THEN 4030
  385. 3830  LOCATE 21,1:COLOR 0,7,4:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  386. 3840  LOCATE 22,1:COLOR 0,7,4:PRINT "OPEN           OPEN":COLOR 0,0,1:LOCATE 22,14:PRINT STRING$(43,32)
  387. 3850  LOCATE 23,1:COLOR 0,7,4:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  388. 3860  LOCATE 22,7:PRINT "1":BEEP
  389. 3870  GOTO 4070
  390. 3880  LOCATE 21,14:COLOR 0,7,4:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  391. 3890  LOCATE 22,14:COLOR 0,7,4:PRINT "OPEN           OPEN":COLOR 0,0,1:LOCATE 22,27:PRINT STRING$(30,32)
  392. 3900  LOCATE 23,14:COLOR 0,7,4:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  393. 3910  LOCATE 22,20:PRINT "2":BEEP
  394. 3920  GOTO 4070
  395. 3930  LOCATE 21,27:COLOR 0,7,4:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  396. 3940  LOCATE 22,27:COLOR 0,7,4:PRINT "OPEN           OPEN":COLOR 0,0,1:LOCATE 22,40:PRINT STRING$(17,32)
  397. 3950  LOCATE 23,27:COLOR 0,7,4:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  398. 3960  LOCATE 22,33:PRINT "3":BEEP
  399. 3970  GOTO 4070
  400. 3980  LOCATE 21,40:COLOR 0,7,4:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  401. 3990  LOCATE 22,40:COLOR 0,7,4:PRINT "OPEN           OPEN":COLOR 0,0,1:LOCATE 22,54:PRINT STRING$(3,32)
  402. 4000  LOCATE 23,40:COLOR 0,7,4:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  403. 4010  LOCATE 22,45:PRINT "4":BEEP
  404. 4020  GOTO 4070
  405. 4030  LOCATE 21,53:COLOR 0,7,4:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  406. 4040  LOCATE 22,53:COLOR 0,7,4:PRINT "OPEN           OPEN"
  407. 4050  LOCATE 23,53:COLOR 0,7,4:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  408. 4060  LOCATE 22,59:PRINT "5":BEEP:COLOR 0,0,1
  409. 4070  RETURN
  410. 4080  COLOR 15,0,4
  411. 4090  LOCATE 21,1:PRINT CHR$(201):LOCATE 21,2:PRINT STRING$(63,CHR$(205)):LOCATE 21,65:PRINT CHR$(187)
  412. 4100  LOCATE 22,1:PRINT CHR$(186)SPACE$(63)CHR$(186)
  413. 4110  LOCATE 23,1:PRINT CHR$(200):LOCATE 23,2:PRINT STRING$(63,CHR$(205)):LOCATE 23,65:PRINT CHR$(188)
  414. 4120  RETURN
  415. 4130  COLOR 3,0,11
  416. 4140  REM      PAYOUTS WITH SILVER DOLLARS
  417. 4150  LOCATE 1,5:PRINT "THIS SHOWS THE PAYOFFS FOR ALL WINNING COMBINATIONS DEPENDING ON HOW MANY"
  418. 4160  LOCATE 2,5:PRINT "COINS YOU PLAY:                   $1     $2     $3      $4      $5"
  419. 4170  LOCATE 3,5:PRINT "--------------------------------------------------------------------"
  420. 4180  COLOR 12,0,11
  421. 4190  LOCATE 4,5: PRINT " 3-BARS    3-BARS    3-BARS     $400   $800   $1200   $1600   $2000"
  422. 4200  LOCATE 5,5: PRINT " 3-BARS    2-BARS    2-BARS      100    200     300     400     500"
  423. 4210  LOCATE 6,5: PRINT "  *BAR*     *BAR*     *BAR*       50    100     150     200     250"
  424. 4220  LOCATE 7,5: PRINT " ANY*BAR   ANY*BAR   ANY*BAR      20     40      60      80     100"
  425. 4230  LOCATE 8,5: PRINT "  BELL      BELL      BELL        18     36      54      72      90"
  426. 4240  LOCATE 9,5: PRINT "  BELL      BELL      *BAR*       18     36      54      72      90"
  427. 4250  LOCATE 10,5:PRINT "  PLUM      PLUM      PLUM        14     28      42      56      70"
  428. 4260  LOCATE 11,5:PRINT "  PLUM      PLUM      *BAR*       14     28      42      56      70"
  429. 4270  LOCATE 12,5:PRINT " ORANGE    ORANGE    ORANGE       10     20      30      40      50"
  430. 4280  LOCATE 13,5:PRINT " ORANGE    ORANGE     *BAR*       10     20      30      40      50"
  431. 4290  LOCATE 14,5:PRINT " CHERRY    CHERRY    CHERRY        5     10      15      20      25"
  432. 4300  LOCATE 15,5:PRINT " CHERRY    CHERRY                  2      4       6       8      10"
  433. 4310  LOCATE 16,5:PRINT " CHERRY                            1      2       3       4       5"
  434. 4320  LOCATE 18,5:PRINT "TO DEPOSIT A COIN (MAXIMUM OF 5) PRESS `C'. PRESS ENTER"
  435. 4330  LOCATE 19,5:PRINT "TO `PULL' (THIS WILL BE AUTOMATIC AFTER 5 COINS)."
  436. 4340  LOCATE 20,5:PRINT "PRESS `S' TO STOP.":COLOR 10,0,11
  437. 4350  LOCATE 23,5:PRINT "PRESS ANY KEY TO CONTINUE: ?";
  438. 4360  IF INKEY$= "" THEN 4360
  439. 4370  RETURN
  440. 4380  REM ***** BIG BUCKS BONUS
  441. 4390  B=INT(RND*(5E+06))
  442. 4400  LOCATE 19,20:COLOR 15,0:PRINT "BIG BUCK$ BONU$:":LOCATE 19,36:PRINT USING "$$#,###,###";B
  443. 4405  GOTO 1120
  444. 4410  REM 'LAST LINE OF PROGRAM *****
  445. 4420  LOCATE 10,60:PRINT "IF YOU HIT THE"
  446. 4430  LOCATE 11,60:PRINT "TOP JACKPOT OF  "
  447. 4440  LOCATE 12,60:PRINT "THREE `3-BARS'"
  448. 4450  LOCATE 13,60:PRINT "WITH 5 SILVER"
  449. 4460  LOCATE 14,60:PRINT "DOLLARS PLAYED,"
  450. 4470  LOCATE 15,60:PRINT "YOU WIN A CHANCE"
  451. 4480  LOCATE 16,60:PRINT "TO TRY FOR THE"
  452. 4490  LOCATE 17,60:PRINT "BIG BUCK$ BONU$"
  453. 4500  RETURN
  454. 4510  LOCATE 8,1:   PRINT "PRESS `C'"
  455. 4520  LOCATE 9,1:   PRINT "TO DEPOSIT"
  456. 4530  LOCATE 10,1:  PRINT "COIN."
  457. 4540  LOCATE 12,1:  PRINT "PRESS ENTER"
  458. 4550  LOCATE 13,1:  PRINT "TO PULL"
  459. 4555  LOCATE 14,1:  PRINT "(EXCEPT AFTER"
  460. 4557  LOCATE 15,1:  PRINT "5TH COIN).
  461. 4560  LOCATE 17,1:  PRINT "PRESS `S'"
  462. 4570  LOCATE 18,1:  PRINT "TO STOP."
  463. 4580  RETURN
  464. 4590  END
  465. 4600  LOCATE 15,25: COLOR 31,0:PRINT "  NOW IT'S TIME  ":FOR X = 1 TO 2000:NEXT X
  466. 4610  LOCATE 15,25: COLOR 31,0:PRINT "  TO GO FOR THE  ":FOR X = 1 TO 2000:NEXT X
  467. 4620  LOCATE 15,25: COLOR 31,0:PRINT " BIG BUCK$ BONU$ ":FOR X = 1 TO 2000:NEXT X
  468. 4630  LOCATE 15,25: COLOR 31,0:PRINT "YOU GET 3 CHANCES":FOR X = 1 TO 2000:NEXT X
  469. 4640  LOCATE 15,25: COLOR 31,0:PRINT "    TO LINE UP    ":FOR X = 1 TO 2000:NEXT X
  470. 4650  LOCATE 15,25: COLOR 31,0:PRINT "    3 `$' SIGNS   ":FOR X = 1 TO 2000:NEXT X
  471. 4660  LOCATE 15,25: COLOR 15,0:PRINT "    GOOD LUCK!    ":FOR X = 1 TO 2000:NEXT X
  472. 4670  DIM Q$(2)
  473. 4680  Q$(1)="   $   ":Q$(2)="   0   "
  474. 4690  REM 'WHEEL ONE
  475. 4700  DIM C$(6)
  476. 4710  C$(1)="   $   ":C$(4)="   0   "
  477. 4720  C$(2)="   0   "
  478. 4730  C$(3)="   0   "
  479. 4740  C$(5)="   $   "
  480. 4750  C$(6)="   $   "
  481. 4760  REM 'WHEEL TWO
  482. 4770  DIM C1$(6)
  483. 4780  C1$(1)="   0   ":C1$(5)="   0   "
  484. 4790  C1$(6)="   0   "
  485. 4800  C1$(2)="   $   ":C1$(3)="   $   "
  486. 4810  C1$(4)="   $   "
  487. 4820  REM 'WHEEL THREE
  488. 4830  DIM C3$(6)
  489. 4840  C3$(1)="   $   ":C3$(2)="   $   ":C3$(5)="   0   "
  490. 4850  C3$(6)="   $   "
  491. 4860  C3$(3)="   0   ":C3$(4)="   0   "
  492. 4870  P=0
  493. 4880  LOCATE 12,23:PRINT "        PULL        ":LOCATE 12,39:INPUT A$:COLOR 15,0,1
  494. 4890  LOCATE 15,24:PRINT E$;E$;E$;E$;"   "
  495. 4900  E$="    ":LOCATE 5,19:PRINT E$;E$:LOCATE 5,30:PRINT E$;E$:LOCATE 5,41:PRINT E$;E$
  496. 4910  REM " * PICK THE WHEELS
  497. 4920  FOR I=1 TO 3:Z(I)=INT((RND*6)+1):NEXT I
  498. 4930  P=P + 1
  499. 4940  REM "***** ROLL ALL WINDOWS AND PICK LEFT *****
  500. 4950  FOR X=1 TO 10:FOR Y=1 TO 2:LOCATE 5,20:PRINT Q$(Y):SOUND 20000,0.1
  501. 4960  LOCATE 5,31:PRINT Q$(Y):LOCATE 5,42:PRINT Q$(Y):NEXT Y:NEXT X
  502. 4970  SOUND 100,0.1:LOCATE 5,20:PRINT C$(Z(1))
  503. 4980  SOUND 37,0.1
  504. 4990  REM " ***** ROLL MID AND RIGHT AND PICK MID *****
  505. 5000  FOR X=1 TO 10:FOR Y=1 TO 2
  506. 5010  LOCATE 5,31:PRINT Q$(Y):LOCATE 5,42:PRINT Q$(Y):NEXT Y:SOUND 20000,0.1
  507. 5020   NEXT X
  508. 5030   SOUND 650,0.1:LOCATE 5,31:PRINT C1$(Z(2))
  509. 5040   SOUND 45,0.1
  510. 5050   REM "***** ROLL RIGHT AND PICK RIGHT *****
  511. 5060   FOR X=1 TO 8:FOR Y=1 TO 2
  512. 5070   LOCATE 5,42:PRINT Q$(Y):NEXT Y:SOUND 20000,0.1:NEXT X:SOUND 675,0.1
  513. 5080   LOCATE 5,42:PRINT C3$(Z(3))
  514. 5090   SOUND 55,0.1
  515. 5100  REM "DO I HAVE 3 OF A KIND
  516. 5110  IF C$(Z(1))="    $   " THEN LOCATE 5,20:COLOR 12,0,1:PRINT "    $   ":COLOR 15,0,1
  517. 5120  IF C$(Z(1))="    0   " THEN LOCATE 5,20:COLOR 14,0,1:PRINT "    0   ":COLOR 15,0,1
  518. 5130  IF C1$(Z(2))= "   $   " THEN LOCATE 5,31:COLOR 7,0:PRINT   "   $   "
  519. 5140  IF C1$(Z(2))= "   0   " THEN LOCATE 5,31:COLOR 14,0:PRINT "   0   "
  520. 5150  IF C3$(Z(3))= "   $   " THEN LOCATE 5,42:COLOR 14,0,1:PRINT "   $   ":COLOR 15,0,1
  521. 5160  IF C3$(Z(3))= "   0   " THEN LOCATE 5,42:COLOR 7,0,1:PRINT  "   0   ":COLOR 15,0,1
  522. 5170  REM ***** DO I HAVE 3 $ SYMBOLS TO WIN THE BIG BUCK$ BONU$
  523. 5180  IF C$(Z(1)) = "   $   " AND C1$(Z(2)) = "   $   " AND C3$(Z(3)) = "   $   " THEN 5290
  524. 5190  IF P = 1 THEN 5230
  525. 5200  A$="mft250o3l4d d l8c o2b l4b l8a# b l2b. l8a# b l4b l8a# b o3l4d l8o2b o3d l2c o2l4a."
  526. 5210  IF P = 2 THEN 5240
  527. 5220  IF P = 3 THEN 5250
  528. 5230  LOCATE 15,25:PRINT "    THAT'S 1!    ":FOR WW = 1 TO 500:NEXT WW:GOTO 4880
  529. 5240  LOCATE 15,25:PRINT "    THAT'S 2!    ":FOR WW = 1 TO 500:NEXT WW:GOTO 4880
  530. 5250  LOCATE 15,25:PRINT "   THAT'S ALL!   ":FOR WW=1 TO 1000:NEXT WW
  531. 5260  LOCATE 15,25:PRINT "  BUT THE $2000  ":FOR WW=1 TO 1000:NEXT WW
  532. 5270  LOCATE 15,25:PRINT "YOU WON WILL HELP":FOR WW=1 TO 1000:NEXT WW
  533. 5280  LOCATE 15,25:PRINT "  EASE THE PAIN. ":FOR WW=1 TO 1000:NEXT WW:GOTO 5370
  534. 5290  LOCATE 15,27:COLOR 31,0:PRINT "  YOU DID IT!!! ":FOR WW = 1 TO 500:NEXT WW
  535. 5300  B$="l8a l4a l8g# a l4a l8g# a l2o3c. l8o2b a l8b l4o3d. l4e. l8e l2o2a."
  536. 5310  C$= "l4o3d d l8c o2b l4b l8a# b l2b. l8a# b l4b l8a# b o3c o2b a. l16f# l2a l4g. l8g l4g l8f# g l4b- l8a g o3l2g. o2l8g"
  537. 5320  D$="a b o3d o2g a b o3d o2d e. l16b.l2a l2g"
  538. 5330  PLAY"xa$;xb$;xc$;xd$;":
  539. 5340  LOCATE 15,27:COLOR 31,0:PRINT " IT'S OFFICIAL!  " :FOR WW = 1 TO 500:NEXT WW
  540. 5350  LOCATE 15,27:COLOR 31,0:PRINT "     YOU WON     ":FOR WW = 1 TO 500:NEXT WW
  541. 5360  LOCATE 15,27:COLOR 31,0:PRINT USING "   $$#,###,###   ";B:FOR WW = 1 TO 5000:NEXT WW
  542. 5365  M = M + B
  543. 5370  RETURN
  544. 5380  END
  545.